home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.3 / pcq1.2b / extr_no1.1mb < prev    next >
Text File  |  1995-04-18  |  1KB  |  59 lines
  1. :c/failat 21
  2. :c/echo "Sie brauchen zum Entpacken diese Archives eine formatierte, leere Diskette."
  3. :c/ask  "Haben sie eine da ? (j/n) : " "n" "j"
  4.  
  5. if not warn
  6.  
  7. lab dd01
  8. :c/copy :c/lha ram:
  9. :c/copy :c/relabel ram:
  10. :c/copy pcq_WDisk1.lha Ram:
  11.  
  12.   if warn
  13.   :c/echo "Sorry, konnte File nicht in die Ram-Disk kopieren."
  14.   skip dd05
  15.   endif
  16.  
  17. :c/assign env: ram:
  18. :c/echo "Legen Sie nun eine leere, formatierte Diskette in das interne"
  19. :c/ask  "Laufwerk (df0:) und drücken Sie dann RETURN"
  20. ram:relabel df0: "Include"
  21. ram:lha -x -b20 -wram: -n x ram:pcq_WDisk1.lha df0:
  22.  
  23.   IF warn
  24.   :c/echo "Was ist denn jetzt schon wieder schiefgelaufen ?"
  25.   endif
  26.  
  27. skip dd05
  28.  
  29. else
  30.  
  31. lab dd02
  32.  
  33.   :c/ask "Wollen sie jetzt eine formatieren ? (j/n) : " "n" "j"
  34.   if not warn
  35.   :c/echo "Dann legen Sie eine Diskette ins interne Laufwerk & drücken Sie RETURN"
  36.   :c/format drive df0: name "Include" NoIcons
  37.  
  38.     If warn
  39.     :c/echo "Sorry, irgendwas lief schief beim Formatieren ..."
  40.     skip dd02 back
  41.     endif
  42.  
  43.   skip dd01 Back
  44.  
  45.   else
  46.   skip dd05
  47.   endif
  48.  
  49. endif
  50.  
  51. Lab dd05
  52.  
  53. :c/delete >NIL: ram:#?.lha
  54.  
  55. :c/endskip
  56. :c/echo "Good bye ..."
  57. :c/wait 4 secs
  58. :c/endcli
  59.